home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / TOT / DEMO.EXE / arc / DEMMS3.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  567b  |  27 lines
  1. program DemoMessageThree;
  2. {demms3 - using SetOption to change button text}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST, totMSG;
  6.  
  7. Var
  8.    MsgWin : MessageOBJ;
  9.  
  10. begin
  11.    Screen.Clear(white,'░'); {paint the screen}
  12.    with MsgWin do
  13.    begin
  14.       Init(1,' Message ');
  15.       AddLine('');
  16.       AddLine('The message unit provides a');
  17.       AddLine('very easy way of displaying');
  18.       AddLine('pop-up messages in a move-');
  19.       AddLine('able window.');
  20.       AddLine('');
  21.       SetOption(' A very ~l~ong button ',76);
  22.       Show;
  23.       Done;
  24.    end;
  25. end.
  26.  
  27.